home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / Demoversionen / Anwendungen / Net_Connect / NC_2.2 / Install next >
Text File  |  1999-03-08  |  9KB  |  303 lines
  1. ; Install script for NC v2.2 Update
  2. ;
  3. ; Copyright by Active Techologies (c) 1999
  4.  
  5. (procedure P_COPY_LIBS
  6.     (copylib (prompt "Updating the Contact Manager library." )
  7.              (help @copylib-help)
  8.              (confirm)
  9.              (source "libs/cmanager.library")  
  10.              (dest "libs:")
  11.              (optional "askuser" "force")
  12.     )
  13.     (copylib (prompt "Installing the Vapor Toolkit library." )
  14.              (help @copylib-help)
  15.              (confirm)
  16.              (source "libs/vapor_toolkit.library")
  17.              (dest "libs:")
  18.              (optional "askuser" "force")
  19.     )
  20.  
  21.      (copylib (prompt "Updating the NetConnectlibrary." )
  22.              (help @copylib-help)
  23.              (confirm)
  24.              (source "libs/netconnect.library")
  25.              (dest "libs:")
  26.              (optional "askuser" "force")
  27.     )
  28.  
  29.      (copylib (prompt "Updating the X-Arc Tools library." )
  30.              (help @copylib-help)
  31.              (confirm)
  32.              (source "libs/xarctools.library")
  33.              (dest "libs:")
  34.              (optional "askuser" "force")
  35.     )
  36. )
  37.  
  38. (procedure P_COPY_APPDEVICE
  39.  
  40.    (if (= 0 #cpu-choice) (set #appp-name "appp.device"))
  41.    (if (= 1 #cpu-choice) (set #appp-name "appp.device.020"))
  42.    (if (= 2 #cpu-choice) (set #appp-name "appp.device.030"))
  43.    (if (= 3 #cpu-choice) (set #appp-name "appp.device.030"))
  44.    (if (= 4 #cpu-choice) (set #appp-name "appp.device.030"))
  45.  
  46.  
  47.     (copylib (prompt "Updating appp.device.")
  48.             (help @copylib-help)
  49.             (confirm)
  50.             (source (tackon "Devs/Networks" #appp-name))
  51.             (dest "Devs:networks/")
  52.             (newname "appp.device")
  53.             (optional "askuser" "force")
  54.     )
  55. )
  56.  
  57. (procedure P_COPY_CATALOGS
  58.     (copyfiles (prompt "Updating the catalogs.")
  59.             (help @copyfiles-help)
  60.             (confirm)
  61.             (source "Catalogs")
  62.             (choices "Deutsch" "Italiano")
  63.             (dest "LOCALE:Catalogs")
  64.     )
  65. )
  66.  
  67. (procedure P_COPY_CM
  68.     (if (exists "netconnect2:programs/cmanager/")
  69.         (copyfiles (prompt "Updating Contact Manager.")
  70.                 (help @copyfiles-help)
  71.                 (confirm)
  72.                 (source "cmanager")
  73.                 (all)
  74.                 (dest "netconnect2:programs/cmanager/" )
  75.                 (optional "askuser" "force")
  76.         )
  77.         (copyfiles (prompt "Updating Contact Manager.")
  78.                 (help @copyfiles-help)
  79.                 (confirm)
  80.                 (source "cmanager")
  81.                 (all)
  82.                 (dest
  83.                     (askdir
  84.                         (prompt "Select the directory where Contact Manager is installed.")
  85.                         (help @askdir-help)
  86.                         (default "netconnect2:programs/cmanager/")
  87.                     )
  88.                 )
  89.                 (optional "askuser" "force")
  90.         )
  91.     )
  92. )
  93.  
  94. (procedure P_COPY_GENESIS
  95.     (if (exists "AmiTCP:")
  96.         (copyfiles (prompt "Updating Genesis.")
  97.                 (help @copyfiles-help)
  98.                 (confirm)
  99.                 (source "genesis")
  100.                 (all)
  101.                 (dest "AmiTCP:" )
  102.                 (optional "askuser" "force")
  103.         )
  104.         (copyfiles (prompt "Updating Genesis.")
  105.                 (help @copyfiles-help)
  106.                 (confirm)
  107.                 (source "genesis")
  108.                 (all)
  109.                 (dest
  110.                     (askdir
  111.                         (prompt "Select the directory where Genesis is installed.")
  112.                         (help @askdir-help)
  113.                         (default "AmiTCP:")
  114.                     )
  115.                 )
  116.                 (optional "askuser" "force")
  117.         )
  118.     )
  119. )
  120.  
  121. (procedure P_COPY_MD
  122.     (if (exists "netconnect2:programs/microdot-ii/")
  123.         (copyfiles (prompt "Updating Microdot II.")
  124.                 (help @copyfiles-help)
  125.                 (confirm)
  126.                 (source "microdot")
  127.                 (all)
  128.                 (dest "netconnect2:programs/microdot-ii/" )
  129.                 (optional "askuser" "force")
  130.         )
  131.         (copyfiles (prompt "Updating Microdot II.")
  132.                 (help @copyfiles-help)
  133.                 (confirm)
  134.                 (source "microdot")
  135.                 (all)
  136.                 (dest
  137.                     (askdir
  138.                         (prompt "Select the directory where Microdot II is installed.")
  139.                         (help @askdir-help)
  140.                         (default "netconnect2:programs/microdot-ii/")
  141.                     )
  142.                 )
  143.                 (optional "askuser" "force")
  144.         )
  145.     )
  146. )
  147.  
  148. (procedure P_COPY_XARC
  149.     (if (exists "netconnect2:programs/x-arc/")
  150.         (copyfiles (prompt "Updating X-Arc.")
  151.                 (help @copyfiles-help)
  152.                 (confirm)
  153.                 (source "X-Arc")
  154.                 (all)
  155.                 (dest "netconnect2:programs/X-Arc/" )
  156.                 (optional "askuser" "force")
  157.         )
  158.         (copyfiles (prompt "Updating X-Arc.")
  159.                 (help @copyfiles-help)
  160.                 (confirm)
  161.                 (source "x-arc")
  162.                 (all)
  163.                 (dest
  164.                     (askdir
  165.                         (prompt "Select the directory where X-Arc is installed.")
  166.                         (help @askdir-help)
  167.                         (default "netconnect2:programs/x-arc/")
  168.                     )
  169.                 )
  170.                 (optional "askuser" "force")
  171.         )
  172.     )
  173. )
  174.  
  175. (procedure P_COPY_MUI_CLASSES
  176.     (if (exists "MUI/Textinput.mcc")
  177.  
  178.         (copylib
  179.            (prompt "Installing updated MUI classes... (Textinput.mcc)")
  180.            (help   @copylib-help)
  181.            (source "MUI/Textinput.mcc")
  182.            (dest   "MUI:Libs/MUI")
  183.            (confirm)
  184.         )
  185.  
  186.         (copylib
  187.            (prompt "Installing updated MUI classes... (Textinput.mcp)")
  188.            (help   @copylib-help)
  189.            (source "MUI/Textinput.mcp")
  190.            (dest   "MUI:Libs/MUI")
  191.            (confirm)
  192.         )
  193.  
  194.         (copylib
  195.            (prompt "Installing updated MUI classes... (Textinputscroll.mcc)")
  196.            (help   @copylib-help)
  197.            (source "MUI/Textinputscroll.mcc")
  198.            (dest   "MUI:Libs/MUI")
  199.            (confirm)
  200.         )
  201.     )
  202.  
  203.     (if (exists "MUI/NList.mcc")
  204.  
  205.         (copylib
  206.            (prompt "Installing updated MUI classes... (NList.mcc)")
  207.            (help   @copylib-help)
  208.            (source "MUI/NList.mcc")
  209.            (dest   "MUI:Libs/MUI")
  210.            (confirm)
  211.         )
  212.  
  213.         (copylib
  214.            (prompt "Installing updated MUI classes... (NListview.mcp)")
  215.            (help   @copylib-help)
  216.            (source "MUI/NListview.mcp")
  217.            (dest   "MUI:Libs/MUI")
  218.            (confirm)
  219.         )
  220.  
  221.         (copylib
  222.            (prompt "Installing updated MUI classes... (NListviews.mcp)")
  223.            (help   @copylib-help)
  224.            (source "MUI/NListviews.mcp")
  225.            (dest   "MUI:Libs/MUI")
  226.            (confirm)
  227.         )
  228.  
  229.         (copylib
  230.            (prompt "Installing updated MUI classes... (NFloattext.mcc)")
  231.            (help   @copylib-help)
  232.            (source "MUI/NFloattext.mcc")
  233.            (dest   "MUI:Libs/MUI")
  234.            (confirm)
  235.         )
  236.     )
  237. )
  238.  
  239. (procedure P_COPY_DOCS
  240.     (copyfiles (prompt "Updating docs.")
  241.                (help @copyfiles-help)
  242.                (confirm)
  243.                (source "Docs")
  244.                (all)
  245.                (dest "netconnect2:docs/" )
  246.                (optional "askuser" "force")
  247.     )
  248. )
  249.  
  250. (procedure check-cpu-type
  251.  
  252.    (transcript "checking CPU type")
  253.    (set #cpu-type (database "cpu"))
  254.    (if (= #cpu-type "68060")
  255.       (set #cpu-choice 4)
  256.       (if (= #cpu-type "68040")
  257.          (set #cpu-choice 3)
  258.          (if (= #cpu-type "68030")
  259.             (set #cpu-choice 2)
  260.             (if (= #cpu-type "68020")
  261.                (set #cpu-choice 1)
  262.                (set #cpu-choice 0)
  263.             )
  264.          )
  265.       )
  266.    )
  267.  
  268.    (set #cpu-choice
  269.       (askchoice
  270.          (choices "68000" "68020" "68030" "68040" "68060")
  271.          (prompt "Please select which CPU " @app-name " will be running on.")
  272.          (help "Some parts of the " @app-name " package have been optimised for specific members of the 68000 processor family. "
  273.                "You should select the processor that " @app-name " will be running on so that the most appropriate programs will be used.")
  274.          (default #cpu-choice)
  275.       )
  276.    )
  277. )
  278.  
  279. (
  280.     (message
  281.        "\n\n\nNetConnect\n"
  282.        "Update v2.2\n"
  283.        "\n(c) by Active Technologies 1999\n"
  284.        "\nhttp://www.active-net.co.uk"
  285.     )
  286.  
  287.     (set @default-dest "NetConnect2:" )
  288.     (check-cpu-type)
  289.     (P_COPY_LIBS)
  290.     (P_COPY_APPDEVICE)
  291.     (P_COPY_MUI_CLASSES)
  292.     (P_COPY_GENESIS)
  293.     (P_COPY_XARC)
  294.     (P_COPY_CM)
  295.     (P_COPY_MD)
  296.     (P_COPY_CATALOGS)
  297.     (P_COPY_DOCS)
  298.  
  299.     (exit)
  300. )
  301.  
  302.  
  303.